﻿Public Class Dragon : Inherits UnidadBase
    Protected Const VIDA_ESP = VIDA_BASE + 4
    Protected Const FUERZA_ESP = FUERZA_BASE + 3
    Protected Const ATAQUE_ESP = ATAQUE_BASE
    Protected Const DEFENSA_ESP = DEFENSA_BASE
    Protected Const DISCIPLINA_ESP = DISCIPLINA_BASE + 1
    Protected Const TAMAÑO_ESP = TAMAÑO_BASE + 9
    Protected Const COSTE_ESP = COSTE_BASE + 14
    Protected Const VELOCIDAD_ESP = VELOCIDAD_BASE + 4

    Public Sub New()
        Me.Vida = VIDA_ESP
        Me.Fuerza = FUERZA_ESP
        Me.Velocidad = VELOCIDAD_ESP
        Me.Defensa = DEFENSA_ESP
        Me.Tamaño = TAMAÑO_ESP
        Me.Ataque = ATAQUE_ESP
        Me.Disciplina = Disciplina
        Me.Imagen = Imagen
        Me.Coste = COSTE_ESP
    End Sub

    Public Sub Aliento(ByVal defensor As Batallon)
        Dim dado As New Dado
        Dim resultado As Integer = 0
        Dim heridas As Integer = 0
        For Each def In defensor.Tropas
            resultado = Math.Truncate((dado.lanzar + dado.lanzar + Me.Fuerza) / 2)
            If resultado >= def.Defensa Then
                heridas = heridas + 1
            End If
        Next
        Eliminar(defensor, heridas)
    End Sub

End Class
